Labels:text | electronics | screenshot | number | software | display | font OCR: radOracle7 Properties ID X Sub ClickO DIM vDatabase AS String DIM vUsername AS String DIM vPassword AS String DIM vConnect AS String DIM vRunConnect AS String Application. Set Cursor ( 1 ) Disconnect any existing session. IF SAMPLE. IsConnected () THEN SAMPLE. Disconnect () Set values for the database logon form and open the modal dialog. frmDatabase. popDatabase. Translation = "Oracle 7 Server=ORACLE:" frmDatabase. popDatabase. Value = "ORACLE: " frmDatabase. OpenModal ( 1 ) ' Open modal Database dialog 1 Retrieve the data supplied in the database logon dialog. Application. Set Cursor ( 1 ) vDatabase = frmDatabase. popDatabase. Value vUsername = frmDatabase. fldUsername. Value vPassword = frmDatabase. fldPassword. Value vConnect = frmDatabase. fldConnect. Value frmDatabase. CloseWindow () ' Close Database dialog externally Force a visual screen refresh. frmMain. ForceUpdate ( ) Build a database connect string from the data supplied. vRunConnect = vDatabase & vUsername & "/" & vPassword & "@" & vConnect SAMPLE. RunConnect = vRunConnect Attempt to manually reconnect the session to the new database server. SAMPLE. Connect ( ) ' If the connection fails, then set the DisConnected button to true. IF NOT SAMPLE. IsConnected () THEN fraDatabase. Value = 0
